home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
mcedit10.zip
/
SEETHRGH.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-04-19
|
2KB
|
54 lines
PROCEDURE seethrghMouse;
var
seethrghmasks : array[0..1,0..15] of word;
Regs : Registers;
BEGIN
{ Screen Mask }
seethrghmasks[0,0] := $9FFF; {1001111111111111}
seethrghmasks[0,1] := $AFFF; {1010111111111111}
seethrghmasks[0,2] := $B7FF; {1011011111111111}
seethrghmasks[0,3] := $BBFF; {1011101111111111}
seethrghmasks[0,4] := $BDFF; {1011110111111111}
seethrghmasks[0,5] := $BEFF; {1011111011111111}
seethrghmasks[0,6] := $BF7F; {1011111101111111}
seethrghmasks[0,7] := $BFBF; {1011111110111111}
seethrghmasks[0,8] := $BFDF; {1011111111011111}
seethrghmasks[0,9] := $BE0F; {1011111000001111}
seethrghmasks[0,10] := $B6FF; {1011011011111111}
seethrghmasks[0,11] := $AB7F; {1010101101111111}
seethrghmasks[0,12] := $9B7F; {1001101101111111}
seethrghmasks[0,13] := $FDBF; {1111110110111111}
seethrghmasks[0,14] := $FDBF; {1111110110111111}
seethrghmasks[0,15] := $FE3F; {1111111000111111}
{ Cursor Mask }
seethrghmasks[1,0] := $0000; {0000000000000000}
seethrghmasks[1,1] := $0000; {0000000000000000}
seethrghmasks[1,2] := $0000; {0000000000000000}
seethrghmasks[1,3] := $0000; {0000000000000000}
seethrghmasks[1,4] := $0000; {0000000000000000}
seethrghmasks[1,5] := $0000; {0000000000000000}
seethrghmasks[1,6] := $0000; {0000000000000000}
seethrghmasks[1,7] := $0000; {0000000000000000}
seethrghmasks[1,8] := $0000; {0000000000000000}
seethrghmasks[1,9] := $0000; {0000000000000000}
seethrghmasks[1,10] := $0000; {0000000000000000}
seethrghmasks[1,11] := $0000; {0000000000000000}
seethrghmasks[1,12] := $0000; {0000000000000000}
seethrghmasks[1,13] := $0000; {0000000000000000}
seethrghmasks[1,14] := $0000; {0000000000000000}
seethrghmasks[1,15] := $0000; {0000000000000000}
regs.AX := 9;
regs.BX := 1;
regs.CX := 0;
regs.DX := ofs(seethrghmasks);
regs.ES := seg(seethrghmasks);
Intr(51,Regs);
end;